premier.test <− function(N)
{
rgl.open()
rgl.bg(color=”black”)
rgl.sph e r e s ( x=rnorm (N) , y=rnorm (N) , z=rnorm (N) ,
r a d i u s=r u n i f (N) , c o l o r=rainbow (N) )
}
